home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Startmenu Speed.xpl < prev    next >
Text File  |  2002-03-18  |  1KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Common"
  5. "NAME"="Menu Reaction Speed"
  6. "VERSION"="1.74"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Delay (ms)"
  9. "DESCRIPTION 1"="Use this plug-in to change the reaction time of the Start menu when you select an item."
  10. "DESCRIPTION 2"="The default value for this is 400 ms, the longest time is 65535 ms (which means: wait for click) and the shortest possible value is 0 ms."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to Donald R. Shroyer [shroyertour@charter.net] for the "wait for click" tip!"
  16.  
  17.  
  18. Sub Plugin_Initialize 
  19.  i=RegReadValue("HKCU\Control Panel\Desktop\MenuShowDelay")
  20.  SetUIElement 1,i
  21. End Sub
  22.  
  23. Sub Plugin_CheckData(ElementIndex)
  24. End Sub
  25.  
  26. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  27.  i=GetUIElement(1)
  28.  if IsNumeric(i) then
  29.   if i<0 or i>65535 then
  30.      Call MsgError("The value you have entered is not valid.")
  31.   else
  32.      Call RegWriteValue("HKCU\Control Panel\Desktop\MenuShowDelay",i,1)
  33.      'Call IndicateSettingChange()  
  34.      Call Restart()
  35.   end if
  36.  else
  37.     Call MsgError("Please enter a valid numeric value.")
  38.  end if
  39.   
  40.  
  41.  
  42.  
  43. End Sub
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.